home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 209
/
209.d81
/
f7 apostrophe
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
642b
|
19 lines
0 ifa=1then1000
10 poke53280,.:poke53281,.
100 rem 64 f7 apostrophe - brian evans
110 rem makes 64's f7 key print an apos
120 forj=50060toj+36:readk:pokej,k:next
130 sys50060:a=1
140 data 120,162,153,160,195,142
150 data 020,003,140,021,003,088
160 data 096,072,138,072,152,072
170 data 165,215,201,136,208,005
180 data 169,039,032,210,255,104
190 data 168,104,170,104,076,049
200 data 234,000,000,000,000,000
250 print"[147][154]your f7 [154]key has been redefined!"
300 print"[154]enter goto tips [154]to return":print"to tips and tricks menu":end
1000 d=peek(186):print"[147][144]load"chr$(34)"b.tips and trick"chr$(34)",8"
1010 print"run":poke631,13:poke632,13:poke198,2:end
10000 d=peek(186):n$="f7 apostrophe":open15,d,15,"s0:"+n$:close15:saven$,d:end